home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Selection / Multimedia Selection Volume One - CD-ROM / MULTIMEDIA SELECTION____________.ISO / windows / wb33 / default.wb$ < prev    next >
Encoding:
Text File  |  1992-06-09  |  1.0 KB  |  24 lines
  1. ; DEFAULT.WBT
  2. ; Whne WinBatch is executed without any parameters, it attempts to locate
  3. ; and execute this DEFAULT.WBT file.
  4.  
  5. ActWin=WinGetActive()                  ;Get currently active Window
  6. VerWB=Version()                        ;Get Version numbers for title
  7. VerDLL=VersionDLL()
  8.  
  9. Path=FileLocate("DEFAULT.WBT")         ;Go find where default.wbt lives
  10. Path=FilePath(Path)                    ;Strip off default.wbt file name
  11. List=FileItemize("%Path%*.WBT")        ;Get a list of WBT files in that dir
  12. x=ItemLocate("DEFAULT.WBT",List," ")   ;Find DEFAULT.WBT in the list
  13. List=ItemRemove(x,List," ")            ;Remove DEFAULT.WBT from the list
  14.  
  15.  
  16. RunMe=ItemSelect("WinBatch %VerWB% / DLL %VerDLL%",List," ")   
  17.                                        ;Allow user to select one
  18.  
  19. WinActivate(ActWin)                    ;Activate original Window
  20.  
  21. if RunMe=="" then exit                 ;Gee, nothing was selected
  22. call(RunMe,"")                         ;And call our little file
  23. Exit                                   ;Bye Bye
  24.